home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / SCENES / LEVEL3 / LAMP.POV < prev    next >
Encoding:
Text File  |  1995-11-25  |  2.2 KB  |  111 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Jorge Arreguin
  4.  
  5. /* This would have won the Intl. Obfuscated Raytrace Code Contest, So I */
  6. /* reformatted it while converting it :-)  All kidding */
  7. /* aside, nice job, Jorge!  -  Aaron A. Collins */
  8. // Note: This file is designed in "right-handed" coordinates: z=height y=depth
  9. // Anybody up to adding bounding shapes??
  10. // NOTE: This file has "Disk" primitives that may be different than those
  11. // in shapes.inc!
  12.  
  13. #include "colors.inc"
  14. #include "shapes.inc"
  15. #include "textures.inc"
  16.  
  17. camera {
  18.    location <0.0, -80.0, 0.0>
  19.    direction <0.0, 1.0, 0.0>
  20.    up <0.0, 0.0, 1.0>
  21.    right <4/3, 0.0, 0.0>
  22.    translate < 25.0, 0.0, 5.0 >
  23.    rotate < -30.0, 0.0, 30.0 >
  24. }
  25.  
  26. light_source { <44.514, 0.0, 13.5> color White }
  27.  
  28. light_source { <-60.514, 0.0, 160.5> color red 0.7 green 0.7 blue 0.7 }
  29.  
  30. sphere { 
  31.    <0.0, 0.0, 0.0>, 5.0
  32.    texture { Brass_Texture }
  33. }
  34.  
  35. sphere {
  36.    <9.307, 0.0, 30.288>, 1.0
  37.    texture { Brass_Texture }
  38. }
  39.  
  40. sphere {
  41.    <38.161, 0.0, 17.197>, 1.0
  42.    texture { Brass_Texture }
  43. }
  44.  
  45. cylinder {
  46.    <0, 0, 0>, <9.307, 0.0, 30.288>, 1.0
  47.    texture { Brass_Texture }
  48. }
  49.  
  50. cylinder {
  51.    <9.307, 0.0, 30.288>, <38.161, 0.0, 17.197>, 1.0
  52.    texture { Brass_Texture }
  53. }
  54.  
  55. cylinder {
  56.    <38.161, 0.0, 17.197>, <38.161+3.2, 0.0, 17.197>, 0.5
  57.    texture { Brass_Texture }
  58. }
  59.  
  60. intersection {
  61.    object {
  62.       QCone_Z
  63.       scale <1.0, 1.0, 1.0>
  64.       translate <44.514, 0.0, 17.685>
  65.    }
  66.    object {
  67.       QCone_Z
  68.       scale <1.0, 1.0, 1.0>
  69.       translate <44.514, 0.0, 16.685>
  70.       inverse
  71.    }
  72.    plane { z, 7.685 inverse }
  73.    plane { z, 13.695 }
  74.  
  75.    texture { Brass_Texture }
  76. }
  77.  
  78. intersection {
  79.    object {
  80.       QCone_Z
  81.       scale <0.2, 0.2, 1.0>
  82.       translate <44.514, 0.0, 33.496>
  83.    }
  84.    object {
  85.       QCone_Z
  86.       scale <0.2, 0.2, 1.0>
  87.       translate <44.514, 0.0, 32.496>
  88.       inverse
  89.    }
  90.    plane { z, 13.695 inverse }
  91.    plane { z, 23.496 }
  92.  
  93.    texture { Brass_Texture }
  94. }
  95.  
  96. plane {
  97.    z, -4.0
  98.  
  99.    texture {
  100.       pigment { Red }
  101.       finish {
  102.          ambient 0.4
  103.          diffuse 0.6
  104.          brilliance 8.0
  105.          reflection 0.8
  106.          phong 1.0
  107.          phong_size 30.0
  108.       }
  109.    }
  110. }
  111.